<%@ Language=VBScript %>
<%Option Explicit%>

<!--#include file="../cons.asp"-->
<!--#include file="../../Common/Database.asp"-->

<%
	response.CacheControl = "no-cache"
	
	Dim Trimestre
	Trimestre = request("Trimestre")
	
	
%>
	<table cellpadding="0" cellspacing="0" width="100%" ID="Table5" style="font-family: Verdana; font-size: 10px;">
	<%GetQuincenasAbiertas()%>
	</table>
<%

Private function GetQuincenasAbiertas()
	Dim oConn, sSQL, oRS
	
	Set oConn = OpenConnection
	
	sSQL = "select * from ColegioQuincena where Estado = 'A'"
	
	Set oRS = oConn.Execute(sSQL)
	
	while not oRS.EOF
		response.Write "<tr><td>" & oRS("Trimestre") & " Trimestre " & oRS("IdQuincena") & " Quincena - " & oRS("FechaDesde") & "-" & oRS("FechaHasta") & "</td></tr>"
		oRS.MoveNext()
	wend
	
End Function

%>